a := 100;
b := 300;

while a do 
    a := a - 1;
    b := b + a
od